home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / b.beginner's boo (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  1KB  |  26 lines
  1. 63000 dv=peek(186):ifdv<8thendv=8
  2. 63010 delay=116:poke53280,0:poke53281,0
  3. 63020 print"[147]";
  4. 63030 fori=8to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next
  5. 63040 print"":fori=217to242:pokei,peek(i)or128:next
  6. 63050 poke214,9:print"[145]"tab(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  7. 63060 fori=1to11:printtab(2)"[159]                                    [155][146][223]":next
  8. 63070 printtab(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
  9. 63080 print"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
  10. 63090 poke214,10:print"[145][159]";
  11. 63100 fori=1to11:reada$
  12. 63110 printspc(20-len(a$)/2)""a$:a$="":next
  13. 63120 delay=delay+1:j=peek(56320)and16:geta$:if(a$="")andj<>0anddel<116then63120
  14. 63130 a$="beginner's book"
  15. 63135 sys57812"beginner's book",dv,0:poke780,0:poke781,0:poke782,160:sys65493
  16. 63136 print"[147]"chr$(9):sys52480:new
  17. 63140 data"[194] [197][160][199] [201] [206] [206] [197] [210] '[160][211][160]  [194] [207] [207] [203]","by [193]ndrew [204]ittle"
  18. 63150 data"  ([195])1995 by [211]oftdisk [208]ublishing"
  19. 63160 data"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  20. 63170 [131]"   (NULL)his is the copyrighted work of
  21. 63180 data"[211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199], [206][207][212] intended
  22. 63190 [131]"for distribution as public domain ","or shareware.  ascor information on
  23. 63200 data"[204][207][193][196][211][212][193][210] and [204][207][193][196][211][212][193][210] products,   "
  24. 63210 data"call [211][207][198][212][196][201][211][203] [195]ustomer service at"
  25. 63220 data"1-800-594-3370 or 1-318-221-8718
  26.